home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / t2win_16.zip / FORM2.FRM < prev    next >
Text File  |  1996-01-07  |  7KB  |  236 lines
  1. VERSION 4.00
  2. Begin VB.Form frmLng 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Read Control Language"
  6.    ClientHeight    =   3225
  7.    ClientLeft      =   1230
  8.    ClientTop       =   3435
  9.    ClientWidth     =   6240
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   1
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   3855
  21.    Left            =   1200
  22.    LinkTopic       =   "Form2"
  23.    ScaleHeight     =   3225
  24.    ScaleWidth      =   6240
  25.    Top             =   2835
  26.    Width           =   6300
  27.    Begin VB.OptionButton Option1 
  28.       Appearance      =   0  'Flat
  29.       BackColor       =   &H00C0C0C0&
  30.       Caption         =   "&Dutch"
  31.       ForeColor       =   &H80000008&
  32.       Height          =   210
  33.       Index           =   2
  34.       Left            =   3960
  35.       TabIndex        =   3
  36.       Top             =   540
  37.       Width           =   1635
  38.    End
  39.    Begin VB.Frame Frame1 
  40.       Appearance      =   0  'Flat
  41.       BackColor       =   &H00C0C0C0&
  42.       Caption         =   "Frame1"
  43.       ForeColor       =   &H80000008&
  44.       Height          =   735
  45.       Left            =   180
  46.       TabIndex        =   7
  47.       Top             =   1890
  48.       Width           =   5955
  49.       Begin VB.Label Label2 
  50.          Appearance      =   0  'Flat
  51.          BackColor       =   &H00C0C0C0&
  52.          Caption         =   "Label2"
  53.          ForeColor       =   &H80000008&
  54.          Height          =   195
  55.          Left            =   180
  56.          TabIndex        =   8
  57.          Top             =   360
  58.          Width           =   5685
  59.       End
  60.    End
  61.    Begin VB.CheckBox Check1 
  62.       Appearance      =   0  'Flat
  63.       BackColor       =   &H00C0C0C0&
  64.       Caption         =   "Check1"
  65.       ForeColor       =   &H80000008&
  66.       Height          =   225
  67.       Left            =   180
  68.       TabIndex        =   6
  69.       Top             =   1530
  70.       Width           =   5955
  71.    End
  72.    Begin VB.TextBox Text1 
  73.       Appearance      =   0  'Flat
  74.       Height          =   285
  75.       Left            =   180
  76.       TabIndex        =   5
  77.       Text            =   "TIME TO WIN"
  78.       Top             =   1170
  79.       Width           =   5955
  80.    End
  81.    Begin VB.OptionButton Option1 
  82.       Appearance      =   0  'Flat
  83.       BackColor       =   &H00C0C0C0&
  84.       Caption         =   "&French"
  85.       ForeColor       =   &H80000008&
  86.       Height          =   210
  87.       Index           =   1
  88.       Left            =   2070
  89.       TabIndex        =   2
  90.       Top             =   540
  91.       Width           =   1635
  92.    End
  93.    Begin VB.CommandButton Command2 
  94.       Appearance      =   0  'Flat
  95.       BackColor       =   &H80000005&
  96.       Caption         =   "&Read"
  97.       Height          =   375
  98.       Left            =   180
  99.       TabIndex        =   9
  100.       Top             =   2700
  101.       Width           =   2265
  102.    End
  103.    Begin VB.CommandButton Command1 
  104.       Appearance      =   0  'Flat
  105.       BackColor       =   &H80000005&
  106.       Caption         =   "&Close"
  107.       Height          =   375
  108.       Left            =   5220
  109.       TabIndex        =   10
  110.       Top             =   2700
  111.       Width           =   915
  112.    End
  113.    Begin VB.OptionButton Option1 
  114.       Appearance      =   0  'Flat
  115.       BackColor       =   &H00C0C0C0&
  116.       Caption         =   "&English"
  117.       ForeColor       =   &H80000008&
  118.       Height          =   210
  119.       Index           =   0
  120.       Left            =   180
  121.       TabIndex        =   1
  122.       Top             =   540
  123.       Value           =   -1  'True
  124.       Width           =   1635
  125.    End
  126.    Begin VB.Label Label1 
  127.       Appearance      =   0  'Flat
  128.       BackColor       =   &H80000005&
  129.       BackStyle       =   0  'Transparent
  130.       Caption         =   "&The name of this product is :"
  131.       ForeColor       =   &H80000008&
  132.       Height          =   225
  133.       Index           =   1
  134.       Left            =   180
  135.       TabIndex        =   4
  136.       Top             =   900
  137.       Width           =   5955
  138.    End
  139.    Begin VB.Label Label1 
  140.       Appearance      =   0  'Flat
  141.       BackColor       =   &H80000005&
  142.       BackStyle       =   0  'Transparent
  143.       Caption         =   "&Select the appropriate language :"
  144.       ForeColor       =   &H80000008&
  145.       Height          =   225
  146.       Index           =   0
  147.       Left            =   180
  148.       TabIndex        =   0
  149.       Top             =   180
  150.       Width           =   5955
  151.    End
  152.    Begin VB.Menu mnu_1 
  153.       Caption         =   "Menu &1"
  154.       Begin VB.Menu mnu_11 
  155.          Caption         =   "menu 1.1"
  156.          Begin VB.Menu mnu_111 
  157.             Caption         =   "menu 1.1.1"
  158.          End
  159.          Begin VB.Menu mnu_112 
  160.             Caption         =   "menu 1.1.2"
  161.             Begin VB.Menu mnu_1121 
  162.                Caption         =   "menu 1.1.2.1"
  163.             End
  164.          End
  165.       End
  166.       Begin VB.Menu mnu_12 
  167.          Caption         =   "menu 1.2"
  168.          Begin VB.Menu mnu_121 
  169.             Caption         =   "menu 1.2.1"
  170.          End
  171.          Begin VB.Menu mnu_122 
  172.             Caption         =   "menu 1.2.2"
  173.          End
  174.          Begin VB.Menu mnu_123 
  175.             Caption         =   "-"
  176.          End
  177.          Begin VB.Menu mnu_124 
  178.             Caption         =   "menu 1.2.4"
  179.             Checked         =   -1  'True
  180.          End
  181.       End
  182.    End
  183.    Begin VB.Menu mnu_2 
  184.       Caption         =   "Menu &2"
  185.       Enabled         =   0   'False
  186.    End
  187.    Begin VB.Menu mnu_3 
  188.       Caption         =   "Menu &3"
  189.       Begin VB.Menu mnu_31 
  190.          Caption         =   "menu 3.1"
  191.          Enabled         =   0   'False
  192.       End
  193.       Begin VB.Menu mnu_32 
  194.          Caption         =   "menu 3.2"
  195.       End
  196.    End
  197. End
  198. Attribute VB_Name = "frmLng"
  199. Attribute VB_Creatable = False
  200. Attribute VB_Exposed = False
  201. Option Explicit
  202. Dim status        As Integer
  203.  
  204. Private Sub Command1_Click()
  205.    Unload frmLng
  206. End Sub
  207.  
  208. Private Sub Command2_Click()
  209.    
  210.    If (Option1(0).Value = True) Then
  211.       status = cReadCtlLanguageExt(frmLng, 255, frmT2W.Tag + ".TUK")
  212.       Label2.Caption = cGetLongDay(LNG_ENGLISH, WeekDay(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_ENGLISH, Month(Int(Now))) & " " & Year(Int(Now))
  213.    End If
  214.  
  215.    If (Option1(1).Value = True) Then
  216.       status = cReadCtlLanguageExt(frmLng, 255, frmT2W.Tag + ".TFR")
  217.       Label2.Caption = cGetLongDay(LNG_FRENCH, WeekDay(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_FRENCH, Month(Int(Now))) & " " & Year(Int(Now))
  218.    End If
  219.  
  220.    If (Option1(2).Value = True) Then
  221.       status = cReadCtlLanguageExt(frmLng, 255, frmT2W.Tag + ".TNL")
  222.       Label2.Caption = cGetLongDay(LNG_DUTCH, WeekDay(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_FRENCH, Month(Int(Now))) & " " & Year(Int(Now))
  223.    End If
  224.  
  225. End Sub
  226.  
  227.  
  228.  
  229. Private Sub Form_Load()
  230.    status = cReadCtlLanguageExt(frmLng, 255, frmT2W.Tag + ".TUK")
  231.    Label2.Caption = cGetLongDay(LNG_ENGLISH, WeekDay(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_ENGLISH, Month(Int(Now))) & " " & Year(Int(Now))
  232. End Sub
  233.  
  234.  
  235.  
  236.